home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Completions / IgorCompletions.tcl < prev    next >
Encoding:
Text File  |  1998-04-16  |  405 b   |  13 lines  |  [TEXT/ALFA]
  1.  
  2. set completions(Igor) \
  3.   {completion::electric completion::word}
  4.  
  5. set Igorelectrics(do) " \r\t••\rwhile (••)\r••"
  6. set Igorelectrics(iterate) " (••)\r\t••\rloop\r••"
  7. set Igorelectrics(if)      " (••)\r\t••\rendif••"
  8. set Igorelectrics(else)   "\r\t••"
  9. set Igorelectrics(Function) " ••(••)\r\t••\rEnd\r••"
  10. set Igorelectrics(Proc) " ••(••)\r\t••\rEnd\r••"
  11. set Igorelectrics(Macro) " ••(••)\r\t••\rEnd\r••"
  12.  
  13.